home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / Oberon⁄F™ 1.1 / Dev / Rsrc / New / Cmds5 (.txt) < prev    next >
Encoding:
Oberon Document  |  1995-08-09  |  2.0 KB  |  52 lines  |  [oODC/obnF]
  1. Documents.StdDocumentDesc
  2. Documents.DocumentDesc
  3. Containers.ViewDesc
  4. Views.ViewDesc
  5. Stores.StoreDesc
  6. Documents.ModelDesc
  7. Containers.ModelDesc
  8. Models.ModelDesc
  9. Stores.ElemDesc
  10. TextViews.StdViewDesc
  11. TextViews.ViewDesc
  12. TextModels.StdModelDesc
  13. TextModels.ModelDesc
  14. TextModels.AttributesDesc
  15. Helvetica
  16. Helvetica
  17. Helvetica
  18. StdStamps.StdViewDesc
  19. Helvetica
  20. Helvetica
  21. Helvetica
  22. MODULE NewCmds;
  23.     IMPORT Dialog, NewViews;
  24.     (** miscellaneous **)
  25.     PROCEDURE Do*;
  26.     (** guard: NewCmds.FocusGuard **)
  27.         VAR v: NewViews.View;
  28.     BEGIN
  29.         v := NewViews.Focus();
  30.         IF v # NIL THEN
  31.             (* do something with the focused view *)
  32.         END
  33.     END Do;
  34.     (** standard guard **)
  35.     PROCEDURE FocusGuard* (VAR par: Dialog.Par);
  36.     (** in non-NewViews menus; otherwise implied by menu type **)
  37.     BEGIN
  38.         IF NewViews.Focus() = NIL THEN par.disabled := TRUE END
  39.     END FocusGuard;
  40. END NewCmds.
  41. TextControllers.StdCtrlDesc
  42. TextControllers.ControllerDesc
  43. Containers.ControllerDesc
  44. Controllers.ControllerDesc
  45. TextRulers.StdRulerDesc
  46. TextRulers.RulerDesc
  47. TextRulers.StdStyleDesc
  48. TextRulers.StyleDesc
  49. TextRulers.AttributesDesc
  50. Helvetica
  51. Documents.ControllerDesc
  52.